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EDITORIAL 


Chers Amis, 


Tout d’abord, rendons hommage aux membres du bureau précédent. Par leur 
activité et leur compétence, ils ont réussi à donner à notre club et à son journal, 
une renommée internationale. Aux nom de tous, nous leur présentons nos plus 
sincères remerciements. 


Le problème soulevé lors de la dernière Assemblée Générale (l'augmentation du 
prix de l’impression) n’a pas encore été tranché. Nous vous en rappelons les 
solutions: soit l'augmentation du prix de l'adhésion, soit la parution bimestrielle 
de JPC. Chaque membre du Club a sans aucun doute un avis à formuler, des 
suggestions à faire. Ces suggestions sont évidemment les bienvenues. 


Avant la confection de ce numéro, un problème angoissant se posait à nous: 
allons-nous avoir assez d’articles pour le réaliser. Le dernier numéro avait 24 
pages, allions-nous tomber à 12, 6 … pages ! PPC et son journal JPC n'éxistent 
que par ses adhérents. Alors n’hésitez pas, envoyez-nous toutes les idées que vos 
activités informatiques, professionnelles ou ludiques vous inspirent. JPC est le 
lien qui assure le dialogue entre nous tous. Il permet à chacun de trouver les 
solutions que trop souvent le réseau "officiel" ne peut fournir. 

Saluons l’arrivée dans nos colonnes du premier programme pour la HP-42. 
Comme vous, nous attendons l'apparition de la HP-4? ou HP-7?. Nous nous 
permettons de faire un voeu: Qu'il Soit Compatible HP-IL ! 


Bonne Programmation ! 


Xavier BILLE 
Jaques BELIN 
Laurent CHOURAKI 
Pierre FRANCK 
Jean REIBEL 
Aurel ROTTMAN 
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COURRIER DES LECTEURS 


En sortant de l'assemblée générale, le 7 janvier 
dernier, j'étais à la fois content et un peu déçu. 
Content qu’il y ait eu des gens courageux et dévoués 
pour constituer un nouveau bureau, déçu que rien ne 
se soit passé après cette remise de pouvoirs. 


En recevant le numéro 61 de JPC j'étais aussi, à la 
fois satisfait de constater la survie du club mais tout 
de même désappointé de trouver une rubrique 
"courrier des lecteurs" vide. 


En effet ce 7 janvier il ne s’agissait pas que d’un banal 
renouvellement de bureau et je m'attendais à ce qu’au 
moins un membre se manifeste. Evidemment ce 
n’était pas le rôle d’un nouvel adhérent, mais il y a 
encore dans le club des anciens connaissent bien son 
historique. 


N’aurait-t-il pas été naturel de rendre hommage à la 
fois au dévouement et à la compétence du président 
sortant Pierre David ? 


N'’étant qu’un provinçial qui passe de temps en temps 
par la rue de Lancry, je ne me lancerai pas à faire ni 
l'historique du club ni le bilan de tous ceux qui ont 
donné d’eux-mêmes pour PPC Paris. 


Je dirai simplement que,lors de mes visites au Centre 
Jean Verdier, j'ai toujours trouvé Pierre assidu, 
serviable, n’économisant ni son temps ni sa patience 
pour répondre aux questions des uns et des autres et 
celà en toute modestie. 

Je sais que le club a eu des moments difficiles et que 
Pierre a été l’un des principaux artisans de sa survie. 
Beaucoup de colonnes de JPC ont été le fruit du 
travail de Pierre qui nous en a généreusement fait 
don. 

Je voudrais aussi rendre hommage à Janick 
Taillandier qui non seulement a été un trésorier 
rigoureux mais dont le nom peut être associé à celui 
de Pierre pour les grandes oeuvres du club et son rôle 
essentiel au sein du bureau. 

D'autre noms seraient certainement à citer mais, mes 
connaissances intimes du club étant limitées, j'en 
resterai là, au risque de paraître très injuste. 

Donc encore merci à Pierre et Janick et toute ma 
reconnaissance à ceux qui ont eu le courage de 
prendre le relai. 


Guy Toublanc (276) 
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COURIER DU COEUR 


Jacques WALDER 
17, chemin des Prés 
78540-VEMOUILLET 
Tél : (1) 39 71 76 41 


Vend : 


HP 71 avec lecteur de cartes +2 modules 4K +cartes 
magnétiques +manuels d'utilisation. Prix FF 4000 à 
débattre. 


Pierre DAVID 
33, bd Saint Martin 
75003-PARIS 


Vend : 


Imprimante ThinkJet HP 2225 : 2000 FF, 
module Maths pour HP 71 : 500 FF. 


Bernard REY 

51, rue du Sahel 

75012-PARIS 

Tél: (1) 43 44 50 54 (après 20 heures) 


Vend : 


HP 32$ (achetée 01/89) : 500 FF. 


Jean REIBEL 

9 Square Victor Fleming 

92350 LE PLESSIS-ROBINSON 
Tél: (1) 46 31 45 11 


Vend : 


Pour HP-41 : module X-MEMORY 500 FF; module 
GAMES 150 FF; module ADVANTAGE 400 FF. 
Pour HP-71 : lecteur de cartes 500 FF; module 
FINANCE 500 FF; Périphérique HP-IL: interface 
vidéo 500 FF; Lecteur de cassettes 1000 FF. 


HP28 


D.T. Khoiïi-Nguyen 
D.T. Khoiïi-Nguyen 
P. Heilbronn 
G. Toublanc 


Inversion Video 

Jeu du pendu 

Le facteur est constant (acte IV) 
Plus vite et plus loin 


Un & & 
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INVERSION VIDEO 


Un petit truc pour les HP-28$S uniquement, un 
programme de 3 instructions (29 octets) qui permet 
de passer en vidéo inverse. 


<< LCD+ NOT LCD >> :LCDNO' [STO] 


Le HP-28$ peut en effet utiliser l’algèbre de Boole 
pour les chaines de caractères (voir pages 320-321 du 
manuel d'utilisation). 


Dang-Trung Khoi-Nguyen 


HANGMAN 


Je propose un programme de jeu en RPL accessible à 
tous les modèles de HP-28: le pendu. Ce jeu est divisé 
en quatre programmes: 


[INIT] 

Programme d'initiation. On met le mot à trouver dans 
une chaine dans la pile et on tape tINITI. Ce 
programme met en forme l'écran: il remplace le mot 
par une suite de tirets (95 CHR). 


[PRINC] 

Le jeu commence. La boucle DO UNTIL KEY END 
empêche les tricheries du type rappel du mot à 
chercher. On ne sort de cette boucle qu’à la fin du 
jeu: on s’est fait pendre ou on a trouvé le mot. 

Si la lettre est fausse, si la touche appuyée est une 
touche du type TRIG, ENTER, etc... si la lettre a été déjà 
proprosée, le calculateur émettra un bip. Vous avez 
droit à 10 éssais. 


[REMOVE] 

Sous programme. Il retire la lettre proposée chaque 
fois qu’elle apparait dans le mot et place la lettre dans 
le mot qui sera affiché. 


[STOP] 
Il purge tous les registres utilisés par les programmes 
précédents. 


Utilisation du jeu: 


1- Entrer le mot à chercher dans une chaîne. (Pas de 
caractères shiftés). 
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2- [INIT] 

3- Utiliser le clavier alphabétique ainsi que le clavier 
numérique. 

Si 10 fautes -> fin du jeu. 


Dang-Trung Khoi-Nguyen 


Programme INIT: 


<< !'X! STO X SIZE !'S! STO 
"Mu 1 S START 
95 CHR + NEXT 
DUP 'W! STO 
CLLCD 2 DISP 10 'K' STO 
K 4 DISP PRINC 
>> 


Programme PRINC: 


<< DO 
UNTIL KEY 
END DUP X SWAP POS 
IF 0 == 
THEN 'K' 1 STO- K 
800 .05 BEEP 
IF O0 == 
THEN DROP X 
CLLCD STOP 
END 
END K 4 DISP DUP 
SIZE 
IF 1# 
THEN 800 .05 BEEP 
DROP PRINC 
END 'L!' STO 
WHILE X L POS DUP 
IP! STO 
REPEAT REMOVE 
END O1S 
FOR R X R R SUB 
NUM + 
NEXT 
IF S 127 * == 
THEN CLLCD W STOP 
END 
PRINC 
>> 


Programme REMOVE: 


<< X 1 P 1 - SUB 127 CHR 
+ X P 1 +5S SUB + 
IX! STO W 1 P 1 - SUB 
L+WP1+5S SUB + 
DUP 'W! STO 2 DISP 

>> 


Programme STOP: 


<<{KLPSXVW)} 
PURGE ABORT 
>> 


LE FACTEUR EST CONSTANT 
(ACTE IV) 


Les lignes qui suivent constituent une version 
condensée et améliorée de Particle en trois volets 
paru dans JPC (numéros 54, 56 et 60). 


Références: 
-Algorithms for RPN calculators par John Ball (1978) 
John Wiley & Sons. 


-Extend your HP-41 par W.A.C. Mier-Jedrzejowicz 
(1985) 


-HP-28 Insights par William Wickes (1988), page 191 
Larken Publications. 


-HP-41CX  Owner's Handbook; HP-28 Reference 
Manual. 


-DATAFILE’ VSNI Page20. 


Le principe général est exposé dans JPC 54. Mais ici, 
la bascule .T. (en anglais, Toggle) qui figure à la 
première et à la deuxième ligne du menu permet de 
choisir entre deux "modes": 


1) Le facteur constant K est préfixé (cest le 
fonctionnement habituel des calculateurs HP en 
RPN). 


2) Le facteur constant K est postfixé (comme sur de 
nombreux calculateurs). Il est le deuxième paramètre 
de l'opération diadique - affichage de l'indicateur (2:). 


Le facteur constant se trouve toujours au niveau 
supérieur de la pile. Les opérations déclenchées par 
l'appui de touches 1+1,t-1,1*1,1/1,1",1""1 placent au 
niveau 2 de la pile la valeur qui se trouvait au niveau 1 
(ou X) avant le déclenchement de l'opération. En 
d’autres termes, le niveau 2 joue le rôle tenu 
habituellement par le registre LASTX, mais avec 
l'avantage d’afficher directement la valeur LASTX. 


En outre, lorsque le calculateur se trouve dans l'un 
des deux modes, on peut, pour une opération ponctuelle, 
par l'appui successif des touches [01 et IK], passer 
momentanément dans l’autre mode. Le résultat est 
toujours affiché au niveau 1. Ce résultat peut être 
exploité, dans la suite du calcul, par les touches 
arithmétiques du clavier ou stocké dans la variable À 
prévue à cet effet, ou bien utilisé comme nouveau 
facteur constant, par appui de la touche tk]. Toutes 
les opérations à venir peuvent se servir du résultat 
affiché au niveau 1, mais on peut également entrer une 
nouvelle valeur sur laquelle agirait éventuellement le 
facteur constant K toujours présent en haut de la pile. 


DESCRIPTION DES MENUS 


1) Invalider les modes COMMAND, UNDO et LAST. 
Entrer les variables de droite à gauche, de bas en 
haut (de la ligne 5 du menu à la ligne 1): 


Cinquième ligne du menu: 


2) Entrer la routine J (utilisée par Z,m,0,6): 
« DEPTH 1 - »  J [STO] 


3) Entrer la routine 1 qui réduit le nombre d’objets 
dans la pile (utilisée par u% et 1%): 
« DEPTH 3 IF >= THEN C END DUP2 » I [STO] 
4) Entrer la routine H (utilisé par +,-,*,/,°,): 
« 

DEPTH PICK SWAP DUP 'D' STO 60 

IF FS? 

THEN DEPH PICK 

END 

» 


H [STO] 


5) Entrer la routine G (utilisée pour le calcul de 
pourcentage du total): 
« 
J ROLL DROP 
2 J 
FOR x 
DUP P +STR 
M % "+ SWAP Q -STR + J ROLLD 
NEXT 
DEPTH 
ROLL +STR DEPTH ROLLD 
KILL 
» 


G [STO] 


(le cas échéant, PRSTC) 


Quatrième ligne du menu: 
6) Entrer la routine à (permet de préciser le format 


d'affichage de %T dans les routines G et u%): 
« 2(ou 0) FIX » Q@ [STO] 
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7) Entrer la routine P (utilisée par k,#t,6): 

(permet de préciser le format d’affichage des postes 
dans les résultats donnés par la routine >): 

« 1 (ou 2) FIX DEPTH PICK SWAP %T » P [STO] 


8) Entrer la routine D (utilisée par 3,f,H et B): 
1 D [STO] 


9) Entrer la routine c (utilisée par 1%, 1 et 8): 
« J ROLLD DEPTH 2 - DROPN »  C [STO] \ 


10) Entrer la routine 8 (utilisée par +,-,*,/,7,"): 
« C D SWAP » B [STO] 


11) Entrer le programme Assembleur À (merci encore 
à Sébastien Lalande et à Paul Courbis): 
Activer le mode HEX du menu BINARY. 
« 
M69A2O! SWAP "O9F20" + + + z 
« 
HEX 1 1 z SIZE 
FOR X 
"4 z X DUP2 1 + DUP SUB ROT ROT DUP SUB + 
+ STR+ B+R CHR + 2 
STEP 
121 STO Z SIZE 2°* 
#50000 SWAP - SYSEVAL LIST+ DROP 'Z' PURGE 
» 
» 


A [STO] 
Troisième ligne du menu: 


12) Entrer le facteur multiplicateur de devise, €f}. Si 
0, puis «f} sont frappés, affichage du facteur en 
service. Si le facteur est entré, suivi de la frappe de 
€#), le facteur sera stocké en D: 


« 


DUP 
IF 
THEN 'D' STO 
ELSE DROP D CLLCD 3 DISP 1 WAIT KILL 
END 
» 
f [STO] 


13) Entrer %t, calcul de pourcentage du total: 
« 
DEPTH 3 
IF > 
THEN PICK DUP CLLCD 2 DISP P 
=STR " %1 + 3 DISP 1 WAIT KILL 
END C P 
» 


"#%t [STO] 


14) Entrer T, routine permettant laffichage 
temporaire du montant total du portefeuille: 
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« DEPTH PICK CLLCD 3 DISP 1 WAIT KILL »  T [STO] 
15) Entrer 0, routine qui réarrange la pile: 
« 1 DEPTH 2 - FOR x x ROLL NEXT » O [STO] 


16) Entrer =, routine à double but: Initialisation de > 
par 0 {=}. Corbeille à papier (numéro du niveau de 
pile à supprimer suivi de {m): 
« 
1 f DUP 
1F 
THEN 
J ROLL 1 - J ROLLD ROLL NEG 
DEPTH ROLL + DEPTH ROLLD 
ELSE CLEAR 0 0 
END 
» 


sm ([STO] 


17) Entrer > routine d’entrée des valeurs: 
(avant l'entrée des valeurs, préciser le FIX) 
« 
J ROLL 1 + J ROLLD DEPTH DUP PICK - 
IF THEN * END 
D * DUP DEPTH ROLL + DEPTH ROLLD DUP 
IF THEN HALT ELSE DROP END 
G 
» 


2 [STO] 


2 MOD 


Deuxième ligne du menu: 


18) Entrer / (division): 
« H / B » [CENTER] 
"21D2020F202" [ENTER] A CENTER] [STO] 


19) Entrer * (multiplication): 
« H * B » [ENTER] 
"21D2020A202" [ENTER] A [CENTER] [STO] 


20) Entrer - (soustraction): 
« H - B » [ENTER] 
"21D2020D2021 [ENTER] A CENTER] [STO] 


21) Entrer + (addition): 
« H + B » [ENTER] 
121020208202! [ENTER] A CENTER] [STO] 


22) Entrer la routine .T.: 

« 60 IF FS? THEN DEG ELSE RAD END » [ENTER] 
"21D2030E245E2" [ENTER] À [ENTER] [STO] 

(45 est le code de T) 


23) Entrer la routine k: 
(préciser l'affichage -soit STD, soit n FIX) 
« 

DUP + z 


« 


IF 
THEN CLEAR z ELSE P 60 IF FC? 
THEN SWAP 
END 
END 


» 


K [STO] 
Première ligne du menu: 


(puisque la mémoire du HP-28C est limitée, cette 
ligne de routine peut ne pas être entrée en machine). 


24) Mettre en place le libellé de 1% sans encore entrer 
la routine, afin d’épargner de la mémoire: 
1 ‘1% [STO] 


25) Entrer ” (puissance): 
« H * B » [ENTER] 
121D2020E502" [ENTER] A [ENTER] [STO] 


26) Entrer ”” (routine Modulo/Test de divis.): 
« H MOD B » [ENTER] 
"21D2030E5E502" [ENTER] À [ENTER] [STO] 


27) Mettre en place le libellé de u% sans encore entrer 
la routine, afin d’épargner de la mémoire: 
1 'u% [STO] 


28) Entrer .t. (Toggle): 

Taper en ligne de commande: « .T. [ENTER] (ou bien 
taper «, puis presser la softkey €.T.7, puis CENTER) 
121D2030E247E2" [ENTER] A CENTER] [STO] 

(47 est le code de t) 


29) Supprimer le contenu de la variable A 
(Passembleur) pour récupérer de la mémoire: 

1'A ISTO] et entrer les deux routines qui ont été 
provisoirement écartées: 


Entrer la routine 1%: 
1% [VISIT] 
« 
DEPTH 2 
IF >= 
THEN I % DUP2 + ROT +STR +1! + ROT -STR + SWAP 
ELSE C DUP INV .01 - DUP INV SWAP .02 + INV 
END 
» 


[ENTER] 


Entrer la routine u%: 

iu% [VISIT] 

« 
STD 1 SWAP +STR "-CP-" + SWAP +STR +S 
Q DEPTH PICK ROT DUP2 %CH SWAP ROT %CH ABS 
2 +LIST 


» 


[ENTER] 


30) Entrer k: 


K! kK [STO] 


Si toutes les routines sont entrées sur une HP-28C, 
version 1CC, MEM indique environ 340. Si, après 
usage, on désire récupérer de la mémoire, on peut 
supprimer la première ligne du menu; pour ce faire, 
saturer la mémoire par quelques appuis successifs de 
[MEM]. 
A l'apparition du message: 

Out of Memory 
Purge? 
Stack 

[YES] [NO] 
Taper sur €YES}; apparition de k, 
Taper sur £YES}; apparition de .t., 
Taper sur £YES}; apparition de #, 
Taper sur £YES)}; apparition de *”, 
Taper sur CYES}; apparition de ”, 
Taper sur CYES}; apparition de 1%, 
Taper sur £YES}, puis sur CON]. 
A présent, l'appui sur MEM donne environ 640, La 
mémoire plus large obtenue à présent facilitera le 
maniement des routines Portfolio. 


Si l’on veut à nouveau installer au menu la première 


ligne qui avait été supprimée, il faut entrer 
lAssembleur: 
‘A [VISIT] 
Entrer la routine de l'étape 11): 
« M69A201! SWAP ...0tc...» [ENTER] 
Entrer les routines décrites aux étapes 24, 
25,26,27,28,29 et 30. 
MENUS 
Initiali- 
sations: 
Share | [Markup----------Tx Int] 
| k #4 1e IT 1%  |'Foncteurs! 
Rp Fer | arithmé- 
RC LC K /__ | tiques 
ae | 
| | 
3) 12 |=l OT  %t f | PTFLIO 
Jemepsssesiessenesnsesensase A SSSsss | 
| FIX | 
4) | A B C D P Q | Routines 
| % Qtés| de 
5) | G H I J | service 
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Libellé Opération Sort réservé à K 
du menu effectuée 
ler choix: K préfixé 
+ K+X 1! Addition à K de X 
"K-X"1 Soustraction à K de X 
x "Kxx1 Multiplication K par X 
/ "K/X1 Division de K par X 
" nKk°x" Elévation de K 
à La puissance X 
SK mod X'" Reste de K divisé par X 


2ème choix: K postfixé Sort réservé à X 


afriénage défe J . -nrnsresrresmense 
+ ux+K1 K lui est ajouté 
. "x-K1! K lui est retranché 
+ nxxK1 K Le multiplie 
"X/K11 K Le divise 
dé "X°KI Elévation de X 
à La puissance K 
SX mod K!! Reste de X divisé par K 


(test de divisibilité: 

si Le résultat = 0, 

X peut être divisé par K, 
X est un multiple de K). 


Note: 


Pour les exemples de la plupart des routines, se 
reporter à JPC 54 (pages 7 à 9) et à JPC 60 (pages 15 
et 16). 
Les programmes peuvent se dérouler avec la partie 
gauche du calculateur rabattue sous la la partie 
droite. 


Philippe Heïlbronn (233) 


PLUS VITE ET PLUS LOIN 


Comme promis voici la suite de “promptitude chez les 
facteurs" (PC 61 page 9). 


La nouvelle fonction EDIVI renvoie, comme b1vi, le 
plus petit diviseur d’un nombre entier N ou 0 si ce 
nombre est premier et cela pour tous les entiers … ne 
dépassant pas 18446744073709551615 (2041) ! 

Le nombre à tester doit être un binaire décimal et le 
résultat est un réel. 
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Exemple : # 82646281d EDIVI -> 9091 


D'autre part les résultats sont obtenus deux fois plus 
rapidement qu’avec DIVI. 


Le programme assembleur pour HP-28S : 


CON(5) #02C67 prologue programme 
CON(5) #075DC  dup 

CON(5) #0BCBB  B->R 

CON(5) #09524 
CON(5) #08C97 
CON(5) #07610 
CON(5) #02C96 


racine carrée 
R->B 
Swap 
Assembly code 


début CON(5) (fin)-(début) 
GOSUB  popin ACW) <- N 
RO=A sauve N 
D1=C Di 4 SN 
D1=D1+ 5 D1 : * racine de N 
GOSBVL #05081 Sauvegarde DO D1 B D 
GOSUB  pooin AC) <- racine de N 
R2=A sauve La racine 
A=RO ACW) <- N 
?2A=0 W N=07? 
GOYES un oui alors sortie 
c=0 W 
LCHEX 2 C(W) <- 2 = incrément 
B=C W B(W) <- 2 = 1er diviseur 
pdecr P=P-1 
?A=0 P 
GOYES pdecr 
C=P 15 CCS) <- (nombre de digits de 
* N) moins un 
A=A-1 W 
2A#0  W N<>17? 
GOYES difi oui alors on continue 
un A=A+1 A non alors résultat : 1 
GOTO res 
dif1 GOSUB test N divisible par 2 ? 
B=B+1 B BW) <- 3 
GOSUB test N divisible par 3 ? 
GOSUB test2 N divisible par 5 ? 
GOSUB test? N divisible par 7 ? 
loop  GOSUB test4 N divisible par 11+30*i ? 
GOSUB test2 N divisible par 13+30*i ? 
GOSUB test4 N divisible par 17+30*i ? 
GOSUB test2 N divisible par 19+30*i ? 
GOSUB testé N divisible par 23+30*i ? 
GOSUB testé N divisible par 29+30*i ? 
GOSUB test2 N divisible par 31+30*i ? 
GOSUB testé N divisible par 37+30*i ? 
A=R2 ACW) <- racine de N 
A=A-B WP racine - diviseur 
GONC Loop nouveau cycle si 
* diviseur <= racine 
GOC prem sinon N premier et sortie 
popin C=DAT1 A C(A) <- adresse niveau 1/2 
CD1EX 


D1=D1+ 
A=DAT1 
RTN 
B=B+C 
B=B+C 
B=B+C 


testé 
testé 
test2 
test 
P=C 
A=RO 
D=0 
hi ?B#0 
GOYES 
BSL 
D=D+1 
GONC 
Lo A=A-B 
GONC 
A=A+B 
D=D-1 
GOC 
BSR 
?A#0 
GOYES 
P=P-1 
GONC 
Loi P= 
?A#0 
RTNYES 
A=B 
C=RSTK 
out C=RO 
?C#A 
GOYES 
prem A=0 
res DAT1=A 
GOSBVL 
A=DATO 
DO=D0+ 
CON(4) 
fin CON(5) 
CON(5) 


Ci-dessous vous trouverez les chaînes de codes 
hexadécimaux à assembler pour les trois versions de 


10 
16 


WP 
WP 
WP 


15 


Lo 
WP 


hi 
WP 
Lo 
WP 


Loi 
WP 


Lo 


Lo 


WP 


WP 


WP 

res 

WP 

16 
#050B8 
A 

5 
#C808 
#0BCBB 
#02F90 


HP-28 (enfin !). 


Les programmes qui utilisaient DIVI (PC 61 page 10) 
doivent être modifiés avec EDIVI. Par exemple DECOMP 


devient : 


<< DUP DUP # Od == 
SWAP # 1d == + 


IF 


THEN 1 ->LIST 
ELSE € } SWAP 


WHILE DUP 


EDIVI 


DUP DUP 1 <> 


REPEAT 


D1 : * N ou racine 
ACW) <- N ou racine 


diviseur + 2 
diviseur + 2 
diviseur + 2 
calcul de N modulo diviseur 


N mod. diviseur <> 0 ? 
oui cycle continue 
récupère le diviseur 
pope 1 niveau de gosub 
C(W) <- N 

diviseur <> N ? 

oui alors N non premier 
résultat = 0 pour N premier 
1er niveau <- résultat 
récupère DO D1 B D 
récupère PC 

actualise DO 

retour système 

B->R 

fin de structure 


DO ROT OVER 1 
->LIST + SWAP ROT 
OVER / SWAP 
UNTIL DUP2 
DUP2 / * - B->R 
END DROP 
END DROP DUP 
# 1d == 
<< DROP LIST-> 
SWAP R->B SWAP ->LIST 
>> 
<< 1 ->LIST + 
>> IFTE 
>> 


Remarque : le "d" accolé aux nombres binaires ne 
concerne que les HP-28$. 


# 100000001 DECOMP -> € 13 # 5882353d } 
résultat en 1 seconde avec une HP28$. 
# 18446744073709551615 DECOMP -> 

{ 35 17 257 641 65537 # 6700417d } 


On remarquera que le dernier diviseur est un nombre 
binaire décimal nécessaire pour les cas éventuels où 
celui-ci serait >= à 1012, 


Voici donc les chaînes de codes hexa à assembler. 
Deux possibilités : 

-assembler en une seule fois l’ensemble des codes 
avec ASSEMBLEUR pour HP-28$ (/PC 55 page 4) ou avec 
Ass et ->LEX pour HP-28(1BB) (/PC 51 page 23 etJPC 
52 page 4) et plus (/PC 59 page 7) pour HP-28(1CC). 
-Ou, ce qui est nettement plus sécurisant, assembler 
par ligne de 16 caractères avec ASS modifié puis ->LEX 
pour les HP-28C (références ci-dessus et JPC 59 page 
7 pour ASS modifié). Pour les HP-28$S nous avons 
ASSEMBLEUR (JPC 55) qui remplace ASS et ->LEX, aussi je 
vous propose d’opérer d’une manière différente : 

- entrez le programme INCOD suivant : 


<< DUP -> LM 

<< HEX # Oh 1 LM 

SIZE 
FOR X "#1 LM X 

DUP2 1 + DUP SUB 3 
ROLLD DUP SUB + + 
ht + STR-> + 2 
STEP # FFFh AND 

>> 


>> 


- INCOD ne fait que calculer les sommes de contrôle 
sans transformer les chaînes. Vous opérez comme 
avec ASS modifié (/PC 59) puis au lieu d’utiliser ->LEX 
vous assemblez avec ASSEMBLEUR. 
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HP-28C(1BB) HP-28C(1CC) 
EDIVI 151 octets EDIVI 151 octets 


0123456789ABCDEF sm 0123456789ABCDEF sm 


000: 76c201F7718DCB1D 39E 000: 76C20308714CD819 379 

001: D59148CB15287169 366 001: CÉP10ADB 17097169 390 

002: c201010070801001 O6C 002: C201010070801001 06€ 

003: 351748F2EE407C60 336 003: 351748F2EE407C60 336 

004: 102110978E1AF230 248 004: 102110978E1AF230 248 

005: 2AFS0D908BFB0CFA 490 005: 2AF50D90BBFBOCFA 490 

006: 7C97CB0E465A0735 478 006: 7C97C80E465A0735 478 

007: 0B657C4075407140 247 007: 0B657C4075407140 247 

008: 7A30793072307130 188 008: 7A30793072307130 188 

009: 7A20732075207810 1F3 009: 7A20732075207810 1F3 

RAT 2 Maur M Qi parle de mise en Frdeur© 
: : o 

00c: 1A1180DF110AC390 2AD O0C: 1A1180DF110AC390 2AD 

00D: DBOB9184754FB105 387 00D: DBOB9184754FB105 387 LS 

00E: CFAÏOAGF4FOB9590 480  O0E: CFAOAGF4FOB9590 480 

00F: CBEQDS6E2891C00A 354 O0F: CBEODS6E2891C00A 354 

010: 940711891650A901 272 010: 940711891650A901 272 

O11: SOF8F91F40142164 351 011: S9FBF91F40142164 351 © 


012: 808C8DCB109F20 360 012: 808C4CDB109F20  34D 


o 


CR 


HP-28S 
EDIVI 151 octets 


0123456789ABCDEF sm 


000: 76C20CD570BBCB04 36E 
001: 259079CB00167069 2AC 
002: c201010070801001 06C 
003: 351748F180507C60 241 
004: 102110978E1AF230 248 
005: 2AF50D908BF80CFA 490 
006: 7C97C80E465A0735 478 
007: 0B657C4075407140 247 
008: 7A30793072307130 188 
009: 7A20732075207B10 1F3 
00A: 112B1059D4261471 260 
00B: 3717915BF01A11A1 28D 
O0C: 1A1180DF110AC390 2AD 
000: DB0B91B4754FB105 387 
O0E: CFA10A4F4F0B9590 4B0 
00F: CBEOD56E2891C00A 354 
010: 940711891650A901 272 
011: 59F8F8B050142164 25C 
012: 808CBBCB009F20 342 





En ce qui concerne D1VI pour HP-28C(1BB) je n’ai pu 
me procurer, le jour de lassemblée générale, un 
exemplaire de cette version qui m'aurait permis de 
trouver l’adresse qui me manque. 


Guy Toublanc (276) 
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J. Reibel Impression de calendrier 12 
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IMPRESSION CALENDRIER 


Voici un programme utilisant le module Infra-rouge 
HP82242 et l'imprimante HP82240. Il utilise la 
commande STARTU (début soulignement) et sTopu (fin 
soulignement) pour les jours fériés. Il se lance par XEa 
CALEND, c’est l’année en cours qui est choisie par 
défaut. A la question ANNEE (1989)?, faire R/S ou 
préciser l’année désirée. Il nécessite un module 
XFONCTIONS et un module HORLOGE. 


O1*LBL lCALEND'" 


CF 28 CF 29 FIX 0 DMY ,9 DELAY MAPOFF CLRG DATE E2 * 
FRC E4 * STO 01 CF 22 "MANNEE('" ARCL 01 ‘@)?" TONE 9 
PROMPT FS?C 22 STO 01 241303,22 STO 06 10281807,26 
STO 07 15042312,01 STO 08 20092717,06 STO 09 RCL 01 
365,25 * INT 143 + STO 04 RCL 01 19 MOD E + FIX 1 5 
/ RND STO 02 FRC X<>0? GTO 01 E8 GTO 00 


55*LBL 01 


,2 X<>Y X<>Y? GTO 01 E6 GTO 00 


62*LBL 01 


,4 XEY K&>Y? GTO 01 E4 GTO 00 


69*LBL 01 


,6 XY? GTO 01 E2 GTO 00 


75*LBL 01 
E 


77*LBL 00 
RCL 02 6 + RCL IND X RCL Z / FRC E2 * INT ST+ 04 RCL 
04 5 + 7 MOD FIX O RND 7 - ST- 04 15,101582 RCL 04 
578179 - DATE+ STO 06 E DATE+ STO 07 38 DATE+ STO 08 
E1 DATE+ STO 09 E DATE+ STO 10 ADV ADV SF 12 CLA 
ARCL 01 FMT ACA PRBUF ADV ADV CF 12 1,012 STO 04 


130*LBL 20 

RCL 04 INT STO 00 CLA E RCL O0 X=Y? M 5 X=Y? 1111 
X<>Y 7 X=Y9 MU OX<>Y 8 X=Y? MU X<>Y 11 KEY? M X<>Y 
12 X=Y? f RCL 06 FRC E2 * INT RCL Z X<Y? GTO 01 RCL 
10 FRC E2 * INT X<>Y X>Y? GTO 01 6,01 STO 02 X<>Y 


177*LBL 14 
RCL IND 02 FRC E2 * INT X<>Y? GTO 00 RCL IND 02 XTOA 


187*LBL 00 
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X<>Y I1SG 02 GTO 14 


191*LBL 01 

ASTO 05 XEQ IND 00 SF 12 FMT ACA PRBUF ADV 'DI |" ACA 
CF 12 "LU|MAÏME|JE|VE|" "QSA|" ACA PRBUF E RCL 00 E2 
/ + RCL 01 E6 / + DOW STO 02 31 STO 03 RCL 00 12 
X=Y? GTO 00 LASTX STO Ÿ E-2 + DDAYS STO 03 


229*LBL 00 


RCL 02 X<>0? GTO 00 E STO 02 GTO 16 


236*LBL 00 


SF 12 |" RCL b ACA CF 12 DSE Y STO b 7 RCL 02 - E3 
/ E + STO 02 GTO 15 


253*LBL 16 


RCL 03 RCL 02 INT X<=Y? GTO O0 ADV ISG 04 GTO 20 ADV 
ADV 'PRET!' PROMPT RTN 


267*LBL 00 
SF 12 STO 02 6 + X>Y? X<>Y E3 / ST+ 02 


277*LBL 15 
CLA ARCL 05 RCL 02 POSA X<0? GTO 00 STARTU 


285*LBL 00 
CLA RCL 02 ATIME ACA STOPU ‘|! ACA CF 12 1SG 02 GTO 
15 PRBUF GTO 16 


298*LBL 01 
MJANVIER!"' RTN 


301*LBL 02 
MFEVRIER!" RTN 


304*LBL 03 
MARS! RTN 


307*LBL 04 
MAVRIL'!' RTN 


310*LBL 05 
“MAI! RTN 


313*LBL 06 
MJUIN' RTN 


316*LBL 07 
"JUILLET" RTN 


319*LBL 08 
MAOUT'! RTN 


322*LBL 09 


"SEPTEMBRE!" RTN 


325*LBL 10 
MOCTOBRE!! RTN 


328*LBL 11 
NOVEMBRE"! RTN 


331*LBL 12 
MDECEMBRE"!' END 


COMMENTAIRES : 


à : caractère Append 


Lignes synthétiques (en décimale) : 


Elles sont remplacées par ""! dans Le Listing. 
138 : 241 1 

141 : 24218 

145 : 241 14 

149 : 241 15 

15392: 242: 171 

157 : 241 25 


199 : 243 68 73 124 

202 : 255 76 85 124 77 65 124 77 69 124 74 69 124 86 
69 124 

203 : 244 127 83 65 124 

238 : 243 32 32 124 


239 : 144 124 
243 : 145 124 
291 : 241 126 


Les E, El, E2, E3, E4, E8 peuvent être remplacés 
respectivement par 1, 1 E1, 1 E2, 1 E3, 1 E4, 1 E8. 


Registres : 

ROO : mois 

RO : année 

RO2 : jours 

RO3 : nombre de jours du mois 
RO&4 : 1,012 

ROS : jours fériés 

RO6 : Pâques 


RO7 : lundi de Pâques 
ROB : Ascension 

RO9 : Pentecôte 

R10 : lundi de Pentecôte 


LIGNES 25 à 116 déterminer et stocker les dates de 
Pâques, de l'Ascension et de La Pentecôte. 

LIGNES 134 à 192 stocker dans R0O5 les fêtes du mois 
imprimé. 

LIGNES 193 à 205 impression des mois et des jours. 
LIGNES 206 à 228 détermination du jour de la semaine 
du ‘er jour du mois et du nombre de jours. 


LIGNES 230 à 252 impression de la semaine si le 1er 
jour n'est pas un dimanche. 

LIGNES 253 à 297 impression des semaines. 

LIGNES 278 à 284 soulignement si jour férié. 

LIGNES 298 à 333 noms des mois. 


Jean REIBEL (31) 





#4 
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E. Gengoux Billet doux (acte IV) 16 
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BILLET DOUX 
ACTE IV 


Vous avez sûrement lu dans les journaux que la 
SNCF venait de répercuter une baisse de la TVA sur 
le prix des billets Grandes Lignes. Cà y est, 
direz-vous, on va encore avoir droit à une n-ième 
mise à jour du programme bien connu pour la HP-27! 
Pour changer un peu, et pour profiter de l’apparition 
de la HP-42 et de son SOLVER, je vous propose plutôt le 
programme qui suit. Il illustre la fonction de création 
des menus MVAR, et à la possibilité nouvelle de stocker 
et rappeler des variables nommées plutôt que des 
registres. Sa taille reste raisonnable (226 octets y 
compris les commentaires). 


Pour permettre la mise à jour des versions 
précédemment publiées (HP-71 et HP-27, voir Actes 
précédents), il est précisé que les règles de calcul ne 
changent pas, seuls ayant varié les coefficients des 
trois formules utilisées, que voici : 


Palier distance Prix Km. Prise en charge 
de 1 à 300 km 0.4508F  1015F 

301 à 349 km 0.4152F 2093F 
plus de 350 km 0.3648F 3883 F 


Rappelons enfin que les mêmes simplifications ont 
été adoptées, à savoir calcul du prix sans "arrondi" ni 
“écrétement" de la prise en charge aux courtes 
distances, et sans calcul de la distance dite "palière". 


Bon voyage! 


Un dernier mot pour les possesseurs de HP-41, 
lesquels pourraient se sentir frustrés de ne pas avoir 
accès ni à des "menus", ni à des "variables-utilisateur", 
et encore moins à la possibilité de recalculer une 
formule avec une autre inconnue. Pour eux, il existe 
un remarquable logiciel américain, SOLVIT (Ted 
BEERS, HP Users Library No. V7551-41), dont la 
diffusion a été reprise par EduCALC (Stock #41766, 
$29.95). IL permet d’émuler presque toutes les 
nouvelles possibilités de la HP-42, enregistrement de 
vos programmes en plus. Ne vous précipitez donc 
pas, ne jetez pas tout de suite votre HP-41!!! 


Eric Gengoux (108) 


OT*LBL'SNCF!! 

02 MVAR "CLAS!! 
03 MVAR "RED%' 
04 MVAR "DIST!! 


Création menu à 4 touches 
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05 MVAR "PRIX! 

06 "PRIX AU 01.1.89" 
07*LBL A 

08 FIX 02 

09 300 

10 RCL "DIST!" 
11 X<Y? 

12 GTO 01 

13 349 

14 RCL "DIST" 
15 X>Y? 

16 GTO 03 

17 GTO 02 
18*LBL 01 | Formule 1 
19 "DIST<300 KM!" 

20 0.4508 

21 RCLX "DIST'"! 

22 10.15 

e3;:+ 

24 STO 01 

25 GTO B 

26*LBL 02 ! Formule 2 
27 "300<=DIST<=349! 

28 0.4152 

29 RCLXx "DIST" 
30 x 

31 20.93 

32 + 

33 STO 01 

34 GTO B 
35*LBL 03 

36 "DIST>3491 
37 0.3648 

38 RCLXx "DIST'" 
39 38.83 

40 + 

41 STO 01 
42*LBL B 
43 100 
44 RCL- 
45 0.01 
46 x 

47 0.5 
48 RCLx ''CLAS'" 

49 - 

50 x 

51 RCLXx 01 

52 RCL- "PRIX! ! Particularité de SOLVE 
53 END 


! Début et choix formule appliquée 


! Formule 3 


! Application Classe et Réduction 


UREDZ!! 


APE 


AH ! VOUS ECRIVEZ 


Vous vous sentez en verve, mais Vous ne savez pas sous quelle forme "l'équipe de 
rédaction" souhaite recevoir votre prose. C’est ici que se trouvent les réponses à 
vos questions. 


Dans la mesure du possible, vous devez nous envoyer vos écrits sur support 
magnétique (carte, cassette ou disquette). Soyez sans crainte, nous vous 
retournerons vos biens après copie. 


Si vous ne pouvez pas utiliser de support magnétique, ou ne pouvez vous rendre 
aux réunions, alors et alors seulement faites le sur papier. 


Que ce soit sur une feuille de papier, ou sur support magnétique, ne dépassez 
pas 50 caractères par ligne. 


Pour nous épargner du travail, insérez dans votre texte les commandes de 
formattage suivantes (et non les commandes du formatteur HP) : 

"?" centre un titre, par exemple : 
°TITRE 


\'(CHR$(92)) marque le début et la fin d’un paragraphe. Par exemple : 


\Début de paragraphe exprimant le contenu de vos idées qui, même si vous en 
doutez, intéressera certains des membres du Club. Surtout si vous vous sentez 
débutant. Les articles pour débutants écrits par des débutants sont ceux qui 
manquent le plus. Fin de paragraphe.\ 


N'oubliez pas de mettre les accents. Utilisez le jeu de caractères Romans. Les 


possesseurs de HP71 utiliseront les redéfinitions de touches ci-dessous, ainsi que 
le fichier CHARLEX listé dans le coin des Lhex. 


Jean-Jacques Dhénin (177) 


DEF KEY ‘fW!, CHR$(197): (é) 
DEF KEY ‘fE', CHR$(193); cé) 
DEF KEY 'fR', CHR$(201); cè) 
DEF KEY 'fY!, CHR$(203);: çù) 
DEF KEY 'fU', CHR$(195); çû) 
DEF KEY ‘fl', CHR$(209); ci) 
DEF KEY 'fO', CHR$(194); (6) 
DEF KEY 'f/!, CHR$(92); (V0 
DEF KEY !fA!, CHR$(192): (à) 
DEF KEY 'fS', CHR$(200); (à) 
DEF KEY 'fD', CHR$(205); (ë) 
DEF KEY 'fJ!', CHR$(207); «ü) 
DEF KEY 'fK!, CHR$(221); (i) 
DEF KEY !f*1, CHR$S(124): [ab 


DEF KEY 'fC!, CHR$(181); Cç) 


PPC PARIS SE REUNIT 
UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC Paris se réunit une fois par mois, en 
plein coeur de Paris. Amenez votre matériel, votre bonne volonté et vos idées ! 
Plus vous en apporterez, et plus vous en trouverez chez vos collègues de PPC. 


Ces réunions se déroulent de manière très libre, aucun ordre du jour, discussion 
ou autre n'étant imposé. Un membre du bureau est toujours présent. Ainsi, si 
vous désirez remettre votre article tout frais au Journal, si vous avez des 
suggestions à faire, si vous voulez vous procurer des anciens numéros de JPC, ce 
sera en principe toujours possible. 


Si donc cela vous intéresse, n’hésitez plus un seul instant, venez nous rejoindre 
tous les premiers samedis de chaque mois (sauf en période de vacances 
scolaires) au : 


Centre de Jeunesse et de Loisirs Jean Verdier 
11 rue de Lancry 
75010 Paris 


et en montant au deuxième étage, vous entendrez des éclats de rire et des 
discussions passionnées vers la salle 215. Attention, toutefois, de venir entre 16 et 
19h. 


Pour l'accès en métro, trois possibilités s’offrent à vous : 
- Métro Strasbourg Saint Denis : 

Sortie porte St Martin / Bd St Denis, coté pairs 

- Métro République : 

Sortie Bd St Martin, coté pairs 

- Métro Jacques Bonsergent : 

Sortie Bd Magenta, coté impairs. 


Ab, j'oubliais ! JPC est (souvent) distribué en avant première lors de ces 
réunions. À bon entendeur, salut ! 


Les dates des prochaines réunions sont : 
Samedi 4 mars 1989 

Samedi 6 mai 1989 

Samedi 3 juin 1989 


Pierre David (37) 


NOUS EN AVONS 


La coopérative du Club vous propose : 


- des anciens numéros de JPC, au prix de 40 F + 7,40 F de frais d’affranchissement, 

- d’une année complète de numéros de JPC (février à janvier) pour 300 F (offre spéciale) port compris, 
- de manuels de service du HP-41 au prix de 75 F (port compris), 

- de manuels de service du HP-75 au prix de 75 F (port compris). 


En outre, le module JPC Rom pour HP-71 est disponible. Vous nous adressez votre Eprom CMT (64 Ko), 
et nous la programmons suivant une des options ci-dessous : 

- JPC Rom + Manuel, pour 600 F, 

- JPC Rom + Manuel + vos propres programmes, pour 800 F. 


Si vous souhaitez des renseignements complémentaires, n’hésitez pas à nous contacter. 


VOUS EN VOULEZ 


Nom : 
Prénom : 
No de membre : 
Adresse : 
Commande : 

qaté Prix Unitaire Prix Total 
anciens numéros de JPC x 47,40 FF 
année complète de JPC x 300 FF 
Programmathèque HP-71 (joindre 3 disquettes) x 75 FF 
Manuel de service pour HP-41 x 75 FF 
Manuel de service pour HP-75 x 75 FF 
Actualisation Eprom x 150 FF 

Total FF 


Préciser éventuellement Les 
numéros de JPC commandés : 


PPC PARIS 


Association régie par la loi de 1901, enregistrée 
à Paris le 2 décembre 1982 sous le numéro 82/3240 


BULLETIN D’ADHESION 
Nom RP EMA AP RS ICRA TS RE STAR ARR PE L'Re NI 
Prénom |_|_1_[_1_1_1_1_1_1_1_1_1_121_12121 Date de naïssance |_|_1[/1_|_1/1_1 | 
Ce AL A 14 PA D A D A AC ET A LA NE A, AE 2 A A 
CP AU A 1 A A a A, A A 1 EL A EU AL A A 
RER RSR SE SP EL RTE AE ASE 
ESA RATE RO REPAS AC PATATE PORN le AE PA M a ARE] 
te VON PS A HS ON Fe AE A A A A A NV A SN PA A A D A 
RO RSRE ISO LEA l TEE ReEl 


Profession 
Intérêts 


Matériel HP en votre possession 


Autre matériel informatique 


Comment avez-vous connu PPC Paris ? 


Que recherchez-vous au sein de PPC Paris ? 


La Loi No 78-17 du 6 janvier 1978 relative à l'informatique, aux fichiers et 
aux Libertés, garantit à toute personne justifiant de son identité un droit 
d'accès et de rectification auprès des services ou organismes chargés de mettre 
en oeuvre des traitements informatiques comportant des informations nominatives 
le concernant. 


Je souhaite adhérer au club PPC Paris conformément aux statuts de 
l'Association. Au mieux de ma connaissance, je déclare avoir le droit de 
fournir tous Les programmes et informations que je vous enverrai (sans 
enfreindre des obligations de secret à l'égard d'autres personnes ou 
organismes) pour publication dans Le Journal de liaison, sans obligations ni 
responsabilité d'aucune sorte (en cas d'utilisation frauduleuse) de La part des 
dirigeants de PPC-Paris. 


Date |_|_1/1_1_1/191 12 


Signature, précédée de La mention "Lu et Approuvé!! 


Le montant de La cotisation s'élève à 350.00 F pour un an. 
Etudiants: 300.00 F (justificatif indispensable) 


Paiement à l'ordre de "PPC Paris! par chèque bancaire où virement postal (CCP 
No 18 823 40 C à Paris). Ne pas utiliser d'Eurochèques. 


Veuillez envoyer toute correspondance à : 
PPC Paris, BP 604, 75028 Paris Cedex 01, France 


HP71 
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DES TITRES ENORMES 
SUR VOTRE THINKJET 


N’avez-vous jamais rêvé de pouvoir imprimer, sur 
votre ThinkJet, des titres qui sortiraient un peu de 
lordinaire? Quelque chose dans le genre "Cinq 
Colonnes à la Une" pour améliorer la présentation de 
vos thèses, mémoires, romans ou articles? Eh bien, 
histoire de prouver que le HP-71 n’est pas mort, il 
continue de sortir aux USA quelques bons logiciels, 
parmi lesquels j’ai pu essayer "ThinkJet Softfonts", de 
Joseph Horn. Comme je l'ai trouvé vraiment 
remarquable, je ne résiste pas davantage au plaisir de 
vous le présenter. 


Le logiciel est livré sur disquette, et donne accès à 11 
polices de caractères différentes, en six tailles. En 
outre, il travaille en espacement proportionnel et 
permet de jouer sur lintervalle entre caractères pour 
affiner encore la composition résultante. Chaque 
ligne pourra être, soit centrée, soit alignée sur la 
marge de gauche, selon vos besoins. 


Dans sa version actuelle, le logiciel est écrit en grande 
partie en Basic; toutefois, l’auteur envisage, si 
suffisamment de personnes l’acquièrent, d’en rédiger 
une nouvelle version, plus rapide, en Assembleur 
HP71. Aussi, ne comptez pas sur moi pour le 
"pirater". 


Le logiciel comprend 27 fichiers, répartis en quatre 
groupes : 


- deux fichiers LEX, MAPLEX et BITLEX, 

- un fichier TEXT par police de caractères (11 au 
total), contenant la police complète en mode 
"bit-mapping' (image prête à être imprimée par la 
ThinkJet), 

- deux fichiers BASIC par taille de caractère : l’un 
sert à calculer combien de caractères "rentrent" dans 
la ligne et à ajuster ce nombre en jouant sur 
lespacement entre caractères, l’autre "compose" 
effectivement la ligne et la sort, au choix, soit vers 
l'imprimante, soit vers un fichier en RAM ou sur 
disque. 


Le logiciel peut être utilisé avec le HP-71 en 
configuration de base (16 Ko), puisqu'il suffit dans la 
plupart des cas de charger le premier LEX, la police 
utilisée pour la ligne en cours de fabrication, et celui 
des deux programmes BASIC requis (suffixe FIT pour 
le calcul d’encombrement, ou suffixe JET pour la 
"composition" effective), en fonction de la taille de 
caractères choisie (préfixe SMALL-, THIN-, LIGHT, 
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JUMBO-, TWIN- Où HUGE-, dans l’ordre croissant.). Le 
programme choisi pose alors diverses questions, puis 
demande le texte de la ligne à composer. Bien 
entendu, il n’est pas possible de mélanger plusieurs 
polices ou taillles de caractères sur la même ligne, et 
les programmes travaillent sur une seule ligne à la 
fois... 


Deux utilitaires accompagnent le logiciel : FONTSET, qui 
affiche le jeu de caractères disponible pour la "fonte", 
et HARDCOPY, qui permet d'imprimer une ligne 
précédemment redirigée vers un fichier (voir plus 
haut). Deux fichiers de démonstration complètent le 
tout. 


Venons-en au choix des polices de caractères fait par 
l'auteur : il est, esthétiquement parlant, "assez sobre", 
avec peu de polices "baroques" ou trop chargées en 
ornements, mais surtout avec des polices 
universellement reconnues pour leur lisibilité 
(Helvética, Letter gothic, Times Roman et Bodoni, 
plus une police "Poster" (gros caractères pour les 
affiches, sans empattements). Voilà qui devrait 
contenter le plus grand nombre, donc. 


Le tout coûte $24.95 chez EduCALC, ce qui n’est pas 
cher du tout! (Stock #IL-2037 JumboJet Softfonts, 
3/:" disc, catalogue No.42 p.76) L'auteur, qui est, 
rappelons-le, un des "bons auteurs" pour le HP71, 
recommande à tous ceux qui souhaiteraient, soit 
obtenir une version "tout Assembleur", soit connaître 
les algorithmes et modes de construction des polices 
pour étendre le produit, de se faire connaître en lui 
envoyant leur numéro de licence. C’est d’ailleurs ce 
que je me suis empressé de faire! 


Happy Printing! 


Eric Gengoux (108) 





CHASSEUR DE REVES 


…Frappé en plein coeur, le terrifiant dragon s'abatit 
enfin à mes pieds. Mort. Epuisé par ce combat 
titanesque, je rengainais mon épée magique et regagnais 
le château où se cachait la population apeurée. Après 
que de belles servantes aient soigné mes légères 
blessures, on me conduisit à la salle du trône où 
m'attendait le roi Celui ci me déclara qu'en 
récompense de mon immense courage pour sauver le 
pays, il m'accordais la main de la plus belle enfant du 
royaume, sa fille. Peu après, sous les clameurs de la 
foule et de mon HP-71, je pris la princesse dans mes 
bras pour... 


MON HP-71 ?? 


Ca y est. Déjà le matin. Ce satané HP-71 vient encore 
de me tirer d’un beau rêve pour me rappeler mes 
obligations matinales, et en plus avec un programme 
que j'ai terminé (comme d’habitude), à une heure 
avancée de la nuit! 


Ne voulant pas vous priver du plaisir intense de vous 
faire réveiller par votre machine préférée, je vous 
propose donc cet abominable programme. (Ceux qui 
aiment envoyer leur réveil sur le mur peuvent passer 
à l’article suivant!) 


Ce programme est inspiré par le module TIME de la 
HP-41. Il permet donc le stockage d’un nombre 
indéterminé d’alarmes permettant laffichage de 
messages ou l'exécution de programmes, ainsi que la 
possibilité de répéter ces alarmes. 


Mais d’abord, un peu de théorie. Le HP-71 possède la 
possibilité de générer des interruptions suivant une 
valeur d’horloge préalablement définie par l’ordre oN 
TIMER. En temps normal, on l'utilise au cours de 
l'exécution d’un programme pour exécuter, par 
exemple, une fonction à des intervales de temps 
définis. Mais cet ordre a aussi la possibilitée d’allumer 
la machine et de continuer l’exécution du programme 
après que celui ci ait éteint le HP-71 par l'instruction 
oFF. Malheureusement, l'interruption est ignorée 
lorsque la machine est allumée sans exécuter un 
programme, ou lorsque l'exécution s'effectue en 
dehors du sous programme où se situe l’ordre ON 
TIMER. 


Ceci veut dire en résumé que le programme ne 
fonctionne normalement que lorsque la machine est 
éteinte. 


Maintenant, passons à la pratique. 


Le programme est 
distinctes: 


constitué de deux parties 


Un sous programme REVEIL, chargé de gérer les 
alarmes au momment de l’extinction de la machine. 
Nous en reparlerons plus tard, mais vous pouvez déjà 
effectuer l’assignation suivante: 


DEF KEY "#991,HCALL REVEIL! 


Ceci permet d’appeler le sous programme à chaque 
action de la touche tshift] [ON]. Mis à part un certain 
temps suplémentaire à l’extinction et à l’allumage, il 
ne manifestera sa présence que pour exécuter une 
alarme. 


La deuxième partie comporte les utilitaires de 
création et de visualisation/modification des alarmes: 


Les alarmes sont stockées dans un fichier TEXT 
nommé REV et classées par ordre chronologique. Sa 
présence n’est pas obligatoire s’il n’y a pas d’alarmes. 
Je vous conseille de le placer, ainsi que le 
programme, en Port Indépendant pour le protéger 
des Memory Lost. 


Introduction des Alarmes 


Pour entrer une alarme dans le fichier REV, tapez 
l'ordre suivant: 


CALL SETALM 


Ceci à pour effet de créer le fichier, si il n'existe pas, 
et d’afficher la ligne suivante: 


DATE :/J//MM/AA 


où JJ/MM/AA représente la date courante. Vous 
pouvez la modifier (en respectant le format). Ensuite 
appuyer sur [ENDLINE] pour avoir l'affichage suivant: 


HEURE : HH :MM:SS 


Vous devez entrer l’heure desirée pour le réveil et 
passer l'entrée suivante. 


REPORT :000:00:00 


Vous pouvez entrer maintenant, si vous le désirez, 
l'intervale de répétition de l’alarme, par exemple 168 
heures pour une alarme hebdomadaire. Si vous ne 
voulez pas de répétition, ne changez rien et pressez à 
nouveau sur CENDLINE]. 


MESSAGE : 

Le message, optionnel, peut être toute chaine de 
moins de 30 caractères. Vous pouvez aussi lancer 
l'exécution d’un programme ou d’un sous programme 
en inscrivant le nom du programme précédé du 
caractère #. 

Cette dernière entrée effectuée, l'alarme est stockée 
dans le fichier. 


Visualisation des alarmes 


Si vous désirez visualiser ou modifier une alarme, 
tapez: 


CALL ALMCAT 
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Vous pouvez ainsi voir la date et l'heure de la 
première alarme: 


JJ/MM/AA HH/MM/SS RM 


L'affichage des lettres R et M à l'affichage indique la 
présence d’un report ou d’un message. 


A présent vous avez accès aux touches suivantes: 


tv] : pour visualiser l’alarme suivante. 
[1 : pour visualiser l’alarme précédente. 
(R1 : pour visualiser le Report (si il existe). 
tshift] [R] : pour reporter l’alarme, de la 
spécifiée par Report. 
(M) : pour visualiser le message (si il existe). 
[T1 : pour visualiser l’heure courante. 
to] : pour visualiser la date courante. 
tc1 : pour modifier l’alarme affichée (action 
identique a SETALM). 
tshift] (E] : pour suprimer l’alarme affichée. 
[ON]: pour quiter ALMCAT. 


Note : les touches R,M,p,T restent actives tant que l’on 
n’a pas relaché la touche. 


Pour des raisons de temps de calcul, le tri par ordre 
chronologigue n’est effectué qu’a la fin de la session. 


Après ceci, vous pouvez oublier le programme et 
utiliser le HP-71 comme vous l’entendez, puis 
l'éteindre en pressant [shift] [ON]. 


Au moment désiré la machine se rallume et affiche: 
HH:MM:SS Message 


tout en faisant entendre une sonnerie, désagréable, 
mais suffisament efficace pour réveiller quiconque 
dort à proximité! Cette sonnerie dure 30 secondes, au 


volume normal, puis 30 secondes à puissance 
maximum. 


Si vous avez choisi d'exécuter un programme, la 
machine se réveillera et lancera directement ce 
programme. 


Si une (ou plusieurs) alarme survient lorsque la 
machine est allumée, elle sera exécutée à la prochaine 
mise hors tension. 


Pour finir, J'aimerais apporter quelques précisions. 
D'abord vous avez suremment noté que j'appelle 
REVEIL en faisant une assignation sur la touche 
tshift] [ON], alors que j'aurais pu utiliser l’ordre ENDUP. 
Je ne l'ai pas fait tout simplement parce que cet ordre 
ne fonctionne pas sur ma machine! Plus précisement, 
le Lex ENDUPLEX étant présent dans la machine, 
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l’ordre ENDUP "BEEP" est accepté, mais lorsqu'on éteint 
la machine (même en tapant oFF) rien ne se produit. 
Quelqu'un pourra Lil me dire pourquoi (un autre Lex 
fait peut être interférence?). Dans le même domaine, 
si vous avez l'habitude d'utiliser un STARTUP, il faut 
l'inclure à la suite de la définition de l’assignation de 
la touche tshift] [ON]. 


J'ai également constaté un fonctionnement bizarre de 
l'ordre ON TIMER. Au cours du développement du 
programme, j'avais décidé d'utiliser le timer #3 au 
lieu du timer #1 (pour permettre aux programmeurs 
d'utiliser logiquement les timers #1 et #2). Mais j'ai 
constaté que le HP-71 se rallume tout seul après 10 
minutes sans que je le désire! Ceci ne se produsait 
plus si on spécifiait OFF TIMER #1 @ OFF TIMER #2 juste 
avant Pinstruction OFF. Par contre, il n’y a aucun 
probleme si on utilise le timer #1 pour la génération 
des alarmes. 


Dans cette version du programme vous devrez donc 
utiliser les timer #2 et #3 pour vos applications. 


Malgré ces petites imperfections, ce programme 
fonctionne parfaitement lorsque on observe les 
indications ci-dessus. Pour assurer lexécution des 
alarmes lorsque la machine est allumée, il sera 
nécessaire d'utiliser un programme en langage 
machine. J’étudie la question, mais cela pose d’autres 
petits problèmes (voir 1DS I, chapitre 15-5). 


C’est fini pour cette fois, maintenant je retourne me 
coucher. 


Bonne Nuit ! 


Jacques Belin (123) 





(RE)TRI DES REPERTOIRES 


Les lecteurs de JPC n°%1, qui ont eu l’amabilité de 
“jeter un oeil" sur ce programme SORTFILE qui a été 
présenté, ont dû se demander pourquoi ce 
programme ne correspondait pas à l’article. 


Celà n’était pas dû à quelque abus. La vérité est plus 
simple : MEMORY LOST juste avant mon départ pour la 
réunion, recopie en catastrophe du fichier. 
Malheureusement ça n’était qu’une des premières 
éditions, fausse pour la lecture de la dernière ligne du 
fichier text, sans tri dans l’ordre alphabétique, avec un 
menu peu pratique, bref le bide complet... 


Je m'en étais néanmoins rendu compte, et avais 
demandé à Pierre David, lors de notre Assemblée 
Générale de bien vouloir prendre le bon programme 
dans son HP-71. Avec la similitude des noms, il est 
probable qu’il y ait eu confusion lors de la fabrication. 


L'erreur est réparée, n’en parlons plus. 


Alexandre Boldireff (254) 


VARIATIONS SUR FORMAT 
(ACTE DXII TER) 


Dans un précédent article, concernant un programme 
mal structuré, nommé PAGI (que je devais réécrire 
pour la rentrée de septembre, heureusement que je 
n'avais pas précisé l’année..), dont le but était de 
paginer des lettres ou textes divers, j'avais expliqué 
que pour la présentation de mes lettres, j'utilisais une 
marge, que je plaçais après avoir formatté ma prose 
avec FORMAT, 


Cette marge, donc, je la générait ligne par ligne avec 
une commande bien connue des créateurs de LEX, 
pour la tabulation en assembleur. 


Pierre David a eu la Bonne idée de publier FORMAT 
dans sa version structurée. EUREKA ! J'ai enfin saisi 
le mécanisme, grâce, il faut le dire, à JPCLEX. 


En toute modestie, j’ai modifié le programme "père", 
que j'ai nommé FORMA. Cette nouvelle mouture 
permet d'inclure ou non une marge. 


En mode0, la ThinkJet imprime 80 caractères par ligne, 
par défaut FINPUT vous permettra d’entrer 80 
caractères dans votre séquence de formattage. Si vous 
désirez une marge, répondez 10] à la question, et 
FINPUT vous fera saisir une marge par défaut de 8 
caractères. Chaque ligne comprendra après 
formattage 72 (80-8) caractères par défaut + la 
marge. 


Attention ! 


Lorsque l’on corrige un texte après l'avoir formatté et 
margé, il faut remettre les caractères de contrôle \ ou 
*, sinon le programme s’arrêtera en sauvegardant 
votre fichier TEXT, et en indiquant que le 
dimensionnement de la ligne ne convient pas. Il y a 
certainement une parade que je n’ai pas cherchée. 
C’est en effet après m'être fait pièger que j'ai ajouté 
une condition d’erreur (37). 


Si lon répond IN] à la question, le programme agit 
comme FORMAT, à l'exception de ce qui suit: 


Autre modification avec exemple : 


\La modification porte aussi 

sur un autre détail. Je n'indente 
pas Les premières lignes de mes paragraphes 
de textes. Par contre, j'utilise souvent 
l'indentation de sous-paragraphes. J'ai donc 
modifié légèrement La séquence d'indentation en 
supprimant La Ligne 1230 du programme de Pierre. 
Ceci a pour effet de poursuivre La séquence de 
formattage jusqu'à La fin du sous-paragraphe.\ 


Après FORMAttage l'exemple ci-dessus devient : 


La modification porte aussi sur un autre 
détail. Je n'indente pas Les premières 
Lignes de mes paragraphes de textes. Par 
contre, j'utilise souvent l'indentation de 


sous-paragraphes. J'ai donc modifié 
légèrement la séquence d'indentation en 
1230 du programme de 
de poursuivre La 


jusqu'à La fin du 


supprimant La Ligne 


Pierre. Ceci a pour effet 
séquence de formattage 
sous - paragraphe. 


NOTA: Cette disposition fonctionne que l’on veuille 
ou non une marge, bien entendu. 


Il est probable qu'avec le nouvel éditeur en 
assembleur ce programme soit obsolète... 


Mais comme le disait si bien M.Moulinot-Coluche, 
"c’est pour faire avancer le sh’mblhic!" 


Alexandre Boldireff (254) 


A 
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/L 
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Olde Ænolish 14 
Helvetica Typestyle 08 
Letter Gothic 1ÿ 
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Cooper Black 14 
Bauer Bodoni Condensed 14 
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PPC-Paris 


Smalljet, police Title 
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PPC-Paris VOILA UN JOURNAL QUI À OÙ CARACTERE !| 
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Thinjet, police Title 
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Hugejet, police Title 
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Programme lREVEIL'" (nécéssite EDLEX et JPC Rom ou FILELEX, STRUC2, DATELEX, HMSLEX, KEYWAIT) 


10 SUB REVEIL 
20 IF NOT FILE?("REV") THEN 


30 OFF 

40  ELSE 

50 IF FILESZR(MREV")=0 THEN 

60 OFF 

70 ELSE 

80 DIM A$[60] à D1$=DATES 

90 ASSIGN #73 TO "REV" 

100 LOOP 

110 READ #73,0;A$ 

120 D=DDAYS(AS [1,81,01$) 

130 T=VAL(A$ 110,111)*3600+VAL(A$ 13, 14] )*60+VAL(ASL16, 17] )-TIME+D*86400 
140 IF T>0 THEN LEAVE 

150 IF ASL29,29]="#" THEN 

160 N$=A$(30] à CALL N$ 

170 ELSE 

180 DISP A$[10,1818A$ [29] à BEEP à K$=KEYWAITS 
190 END IF 

200 CALL CALCREP(AS$,S) 

210 IF S=1 THEN 

220 DELETE #73,0 

230 ELSE 

240 REPLACE #73,0;A$ à CALL TRIALM 
250 END IF 

260 IF FILESZR(MREV")=0 THEN T=2°26 à LEAVE 
270 END LOOP 

280 ASSIGN #73 TO * 

290 ON TIMER #1,T GOTO 310 

300 OFF INTR @ OFF @ GOTO 540 
310 ASSIGN #73 TO REV à READ #73,0;A$ 
320 IF A$(29,29]="#" THEN 
330 N$=A$[30] à CALL N$ 

340 ELSE 

350 DISP A$(10,18)8A$ (29) 

360 J=0 

370 BEEP ON 

380 WHILE NOT KEYDOWN AND J#160 

390 BEEP 50000,.1 à BEEP 5000, .2 
400 J=J+1 

410 IF J>80 THEN SFLAG -25 

420 END WHILE 

430 CFLAG -25 

440 END IF 

450 CALL CALCREP(A$,S) 

460 IF S=1 THEN 

470 DELETE #73,0 

480 ELSE 

490 REPLACE #73,0;A$ @ CALL TRIALM 
500 END IF 

510 ASSIGN #73 TO * 

520 END IF 
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530 END IF 
540 OFF TIMER #1 
550 END SUB 


1000 SUB SETALM 

1010 DIM A$[60] 

1020  DS$=DATES à T$=TIMES à R$="000:00:00" à M$="" 
1030  CALL INPALM(DS,TS,RS,MS,AS) 

1040 IF NOT FILE?C"REV") THEN CREATE TEXT REV 
1050  ASSIGN #73 TO REV 

1060  RESTORE #73,FILESZR("REV") 

1070 PRINT #73;A$ 

1080  ASSIGN #73 TO * 

1090  CALL TRIALM 

1100 END SUB 


1500 SUB INPALM(DS,TS,R$S,MS,A$) 
1510 D$=D$1(7,8]8D$13,6]&D$[1,2] 
1520 INPUT MDATE:",D$;D$ 

1530 D$=D$17,818D$13,6]8&D$[(1,2] 
1540 INPUT MHEURE:",T$;T$ 

1550 INPUT MREPORT:",R$;RS$ 

1560 INPUT 'MESSAGE:",M$;MS$ 
1570 A$=D$&N NMETEEN MERE EME 
1580 END SUB 


2000 SUB ALMCAT 

2010  POKE "2F441n,"F" 
2020 DIM A$[60] 

2030 IF FILE?("REV") THEN 


2040 1=0 à N=FILESZR(MREV") 

2050 IF N#0 THEN 

2060 ASSIGN #73 TO REV 

2070 REPEAT 

2080 READ #73,1:A$ 

2090 D$=A$(1,8] à T$=A$L10,17] à R$=AS(19,27) à M$=A$ [29] 

2100 DISP D$[7,818D$(3,618D$[1,218" "&TS; 

2110 IF R$#000:00:00" THEN DISP " R'; ELSE DISP " 1"; 

2120 LF M$#" THEN DISP "M" ELSE DISP "" 

2130 KS=KEYWAITS 

2140 IF K$="#50" AND I#0 THEN I=1-1 

2150 IF K$="#51 AND IAN-1 THEN I=1+1 

2160 IF K$="R" AND R$#000:00:00" THEN DISP R$ à WHILE KEYDOWN à END WHILE 
2170 IF K$="fR" AND R$#"000:00:00" THEN CALL CALCREP(AS,S) à REPLACE #73,1;A$ 
2180 IF KS="M" AND MSA" THEN DISP M$ à WHILE KEYDOWN à END WHILE 

2190 IF K$="D" THEN DISP DATES[7,8];DATES(3,6];DATES[1,2] @ WHILE KEYDOWN à END WHILE 
2200 IF K$="T" THEN DISP TIMES à WHILE KEYDOWN à END WHILE 

2210 IF K$="fE" THEN 

2220 DELETE #73,1 @ N=N-1 

2230 IF N=1 THEN 1=1-1 

2240 END IF 

2250 IF K$="C" THEN CALL INPALM(DS,TS,RS,MS,A$) à REPLACE #73,1;A$ 
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2260 UNTIL K$="#43" OR N=0 


2270 ASSIGN #73 TO * 
2280 CALL TRIALM 
2290 END IF 


2300 END IF 
2310  POKE "2F441","0" à PUT "#43" 
2320 END SUB 


2500 SUB TRIALM 

2510 DIM A$[60],B$ [60] 
2520 N=FILESZR("REV") 
2530 IF N>1 THEN 


2540 ASSIGN #73 TO REV 

2550 FOR 1=1 TO N-1 

2560 FOR J=1+1 TO N 

2570 READ #73,1-1:A$ 

2580 READ #73,J-1:B$ 

2590 IF A$>=B$ THEN 

2600 REPLACE #73,J-1:A$ 
2610 REPLACE #73,1-1;:B$ 
2620 END IF 

2630 NEXT J 

2640 NEXT 1! 

2650 ASSIGN #73 TO * 


2660 END IF 
2670 END SUB 


3000 SUB CALCREP(AS,S) 


3010  S=0 

3020 IF A$[19,271="000:00:00" THEN 

3030 s=1 

3040  ELSE 

3050 D$=A$ [1,81 à T$=A$[10,17] à R$=AS(19,27] à MS=AS [29] 

3060 TI=HMSADD (VALCTS 11,218". M8TS [4 ,518TS (71), VAL(RS (1, 318". MERS IS, ÉJ8RS [8] >) 
3070 D$=DATESTRS(DATEADD(DS,T1 DIV 24))[3] 

3080 T1=MOD(T1,24) 

3090 TS=FNT2SCINTCT 1) DB": MBFNT2SCINT(FP(T13* 100) )&":MBRFNT2SCFPCT1*100)*100) 
3100 AS=DS8" METSEN MERSEN MEME 


3110 END IF 


3120 DEF FNT2$(X) 


3130 IF X=0 THEN 

3140 T3$="00" 

3150 ELSE 

3160 IF X<10 THEN 

3170 T3$="O"N&STRE(X) 

3180 ELSE 

3190 IF X>=10 THEN T3$=STRS(X) 
3200 END IF 

3210 END IF 

3220 FNT2$=7T3$ 


3230 END DEF 
3240 END SUB 
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Programme "SORTFILE" (Tri des répertoires, nécessite EDLEX et JPC Rom ou FINPUTLX, STRUC2, DDIR 
PRINTLEX, KEYWAIT) 


10 CALL STF à SUB STF 
20 Y$='Source :! à 2$=!'Fichier type : ! à X$=' [RUN] pour valider! 
30 H$=! /\1 @ B$=!\/ ! 1! h$=CHR$(163) à b$=CHRS(164) 


40 DATA b$&x$,y$&'Tape!,y$&! RAM',y$&'Port',x$&h$,p,p,p,P,P 
50 DATA DS&x$, z&'TEXT' ,2$&'BASIC! ,2$&'DATA' ,z$&'SDATA! ,2$&'LEX' ,2$&'KEY!,xS&h$ 


60 DATA P,P,P,P,P,P,P,P 
70 DATA Temps du,chargement,tri,alpha 


80 OPTION BASE 1 à DIM Q0$(5)111,01$(8)111,P0$(5)[11,P1$(8)[11,M0$(5)[21],M1$(8) [21] 
90 DIM M$(4)[10] à READ MO$,POS,M1$,P1$,M$ 
100 FINPUT Q0$,M0$,P0$,C 


110  T=TIME 

120 SELECT C 

130 CASE 2 

140 DDIR ‘:1! TO TMP1 à A=14 à B=16 

150 CASE 3 

160 DDIR :MAIN TO TMP1 à A=12 à B=14 

170 CASE 4 

180 DIM P$[3] 

190 FINPUT P$,'Choix :PORT(. )','12p3up',Z à P=VAL(PS) 
200 DDIR ":PORT(MESTRS(P)&")" TO TMP1 à A=12 @ B=14 
210 CASE ELSE 

220 GOTO 100 


230 END SELECT 

240 T=TIME-T 

250 CALL CHRONO(M#(1)&' 1'&MB(2),T) 
260 FINPUT Q1$,M1$,P1$,D 


270 T=TIME 

280 SELECT D 

290 CASE 2 

300 E$='TEX! 
310 CASE 3 

320 E$='BAS! 
330 CASE 4 

340 E$='DAT! 
350 CASE 5 

360 E$='SDA! 
370 CASE 6 

380 E$='LEX! 
390 CASE 7 

400 E$='KEY! 
410 CASE ELSE 
420 GOTO 260 


430 END SELECT 

440 DISP ‘Programme en cours... 

450 L=FILESZR(!TMP1') à N=0 

460 CREATE TEXT TMP2 à DIM T$(42],S$[42] ,U$ [42] ,R$ [8] ,P$[8],Q$ [8] 
470 ASSIGN #1 TO TMP1 à ASSIGN #2 TO TMP2 
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480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 


REPEAT 
READ #1,N;T$ Q R$=TS$[A,B] 
SELECT R$ 
CASE E$ 
PRINT #2:T$ 
END SELECT 
N=N+1 
UNTIL N=L 
T=TIME-T @Q ASSIGN #1 TO * àQ ASSIGN #2 TO * 
CALL CHRONO(MS(1)&' '&MS(3),T) 
DISP M$(3)&! !8&MS(4) 
T=TIME @ L=FILESZR('tmp2!) 
ASSIGN #1 TO TMP2 
P=1 
WHILE P<IP((L+1)/9) @ P=3*P+1 Q END WHILE 
REPEAT 
FOR K=0 TO P-1 
FOR I=K+P TO L-1 STEP P 
READ #1,1;S$ @ R$=S$[1,8] 
J=I1-P 
LOOP 
READ #1,J;:T$ à Q$=7$11,8] 
IF J<K+P OR R$>=Q$ THEN LEAVE 
REPLACE #1,J+P;T$ 
J=J-P 
END LOOP 
READ #1,K;U$ à P$=U$ [1,8] 
IF P$>R$ THEN J=K-P @ REPLACE #1,K+P;U$ 
REPLACE #1,J+P;S$ 
NEXT I 
NEXT K 
P=IP(P/3) 
UNTIL P=0 
ASSIGN #1 TO * 
T=TIME-T 
CALL CHRONO(MS(1)&! 1&MS(3)&! '&MS(4),T) 
DISP 'DISP ou PRINT ? d/p' 
SELECT KEYWAITS$ 
CASE D! ,!d! 
LIST TMP2 
CASE 'P','p' 
PRINTER IS :PRINTER 
PRINT CHR$(27)&''&L8D''; à PAGELEN 96 à PERF ON 
MODE 3 
PLIST TMP2 
PRINT CHR$(27)&"&L6D'!; à PAGELEN 
MODE 0 
PRINTER IS :DISPLAY 
CASE ELSE 
GOTO 840 
END SELECT 
DISP "Fin d'utilisation ? o/n' 
SELECT KEYWAIT$ 
CASE !'0O!,'o! 
PURGE TMP1 Q PURGE TMP2 à DISP 'Fin' à GOTO 1080 
CASE !'N','n! 
PURGE TMP2 @ N=0 à GOTO 260 
CASE ELSE 
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GOTO 1000 
END SELECT 





1090 SUB CHRONO(M$,T1) 
1100 SELECT T1 















1110 CASE <=60 

1120 DISP USING '21a," : ",2d.2d,"sec."1:M$,T1 

1130 CASE 60 TO 3600 

1140 M=IP(T1/60) à S=FP(T1/60) 

1150 DISP USING '2la," : ",2d,"min.",2d.2d,"sec."!:M$,M,S 


1160 END SELECT @ ON ERROR GOTO 1170 
1170 OFF ERROR Q IF ERRN=64 THEN 1180 
1180 END SUB 








RAR RH KR ke he he ee he ee he he ee he he ee he ee he eee he he ee ke he ee he ee he ee he ee eee he ee he he ee ee A Re ke 


Programme ‘"'FORMA" (formatteur de textes, nécessite EDLEX et 
FORMALEX et KEYWAIT) 


JPC Rom ou STRUC2, FINPUT, 


































DIM F$,NS,N,A 
20 FINPUT F$,'Fichier: !,A 

30 IF NOT À THEN END 

40 FINPUT N$,'Width: 80!,'7p3up!,A 
50 IF NOT A THEN END 

60 N=VALCNS) 

70 DISP ‘Marge à prévoir ? o/n! 
SELECT KEYWAITS$ 
CASE '0!,'o! 


100 SFLAG 1 

110 FINPUT N$,'Marge: 8!','6peup',A 
120 IF NOT A THEN 110 

130 M=VAL(N$S) @ N=N-M 

140 CASE !N','n! 


BEEP 
CASE ELSE 
170 GOTO 70 

180 END SELECT 

190 DISP ‘Formattage...' 

200 CALL FORMAT(F$,N) 

210 BEEP 

220 IF FLAG(1,0) THEN 

230 F=FILESZR(F$) à G$=!TMP! 

240 DISP ‘Pose de la marge...' à CREATE TEXT G$ 

250 DIM CSIN] @ M$=SPACES(M) à ASSIGN #1 TO F$ à ASSIGN #2 TO G$ 
260 LOOP @ ON ERROR GOTO 300 

270 READ #1;C$ Q OFF ERROR 

280 PRINT #2; M$&CS 

290 END LOOP 

300 IF ERRN=37 THEN 

310 DISP ‘Lignes trop longues! 

PURGE G$ 
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330 GOTO 370 


340 END IF 
350 PURGE F$ @ RENAME G$ TO F$ 
360 END IF 


370 DISP "Fin d'utilisation" à END 


1000 SUB FORMAT(FS$,N) 

1010 DIM A$1256],B$[256+N],G$[3],P,Q 
1020 G$=!TMP! 

1030 SFLAG -1 @ PURGE G$ @ CFLAG -1 
1040 CREATE TEXT G$ 

1050 ASSIGN #1 TO F$ @ ASSIGN #2 TO G$ 


1060  LOOP 

1070 ON ERROR GOTO 'END' à READ #1; A$ 

1080 OFF ERROR 

1090 SELECT A$[1,1] 

1100 CASE man 

1110 PRINT #2; CENTERSCAS [2] ,N) 

1120 CASE ‘\! 

1130 P=0 à CFLAG 5 à B$=1! 

1140 A$=A$ [2] 

1150 IF A$[1,11=1"1 THEN A$=A$[2] à P=CEIL(N/10) 

1160 REPEAT 

1170 AS=REDUCES (AS) 

1180 IF AS[LEN(A$S)]1='\! THEN SFLAG 5 à AS[LEN(AS)]='! 

1190 B$=REDUCES(BS&" RAS) 

1200 WHILE LEN(B$)>N-P 

1210 Q=CESURE(BS,N-P) 

1220 PRINT #2; SPACES$(P)&FORMATS(B$[1,Q],N-P) 
‘ P=0 

1240 B$C1,Q+1]="n 

1250 END WHILE 

1260 IF FLAG(5) THEN 

1270 PRINT #2; SPACES(P)8BS 

1280 ELSE 

1290 READ #1;A$ 

1300 END IF 

1310 UNTIL FLAG(5) 

1320 CASE ELSE 

1330 PRINT #2:A$ 

1340 END SELECT 


1350 END LOOP 


1360 'END': PURGE F$ 
1370 RENAME G$ TO F$ à CFLAG 5 
1380 END SUB 


HOAOAOHOROAA AAA HR ONEHH ARE OR HA HA HA HA AH A A DO HA DH ARR AA HO A A A A 
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LE COIN DES LHEX 


Comme de coutume, cette rubrique contient la liste des codes hexadécimaux des fichiers Lex 
parus ce mois-ci. 


Rappelons ce qu'est un fichier Lex : c’est un programme pour le HP-71, en assembleur, qui 
apporte de nouvelles fonctions. Celles-ci sont utilisables directement, ou dans des programmes 
Basic. 


Pour bénéficier de ces nouvelles fonctions, vous n’avez pas besoin de programmer vous-même en 
assembleur, ni de posséder un module Forth/Assembleur. 


Il suffit de recopier le petit programme basic "MAKELEX" ci-dessous, de le lancer et de recopier 
les codes du fichier Lex désiré. Quand vous avez fini, les nouvelles fonctions sont accessibles, 
après avoir éteint et rallumé votre HP-71. 


Si l'erreur "Erreur de somme" apparaît, vérifiez la ligne que vous avez introduite. 


Vous trouverez donc le Lex CHARLEX nécessaire à la rédaction de votre article (voir "Ah ! Vous 
écrivez !"}, ainsi que le Lex de programmation structurée de ce mois-ci. 


CHARLEX 


10 CALL MLEX à SUB MLEX @ SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: !";N à LC OFF 

20 CREATE DATA AH,1,N-4 à A=HTD(ADDR$(''AH")) @ B=A @ GOSUB 130 

30 Q=1 à X=0 à INPUT "000: ",P$;A$ à C$=A$ à S=0 à GOSUB 90 

40 Q=2 à X=1 à GOSUB 80 à AS=AS&CS à A=A+37 à N=N*2+37 Q Q=3 àQ SFLAG 5 @ FOR X=2 TO N DIV 16-1 
50 GOSUB 80 à C$=C$[5*FLAG(5)+1] à POKE DTH$(A),C$ @ A=A+16-5*FLAG(5,0) à NEXT X à Q=4 


60 DISP DTHSCX)[31: @ INPUT ": ",P$[1,MODCN,16)1;C$ à GOSUB 90 
70 POKE DTH$(A),C$ à POKE DTH$(B),A$ à CFLAG -1 à END 

80 DISP DTH$CX)[31; @ INPUT M: ",P$:C$ 

90 DISP DTH$CX)[31; @ INPUT " sm ","---1:D$ 


100 M=S à FOR Z=1 TO LEN(C$) @ M=NUM(CS[Z])+M+1 à NEXT Z 

110 IF D$=DTHS(MOD(M,4096))[3] THEN GOSUB 130 @ S=M Q RETURN 

120 DISP "Erreur de somme! à BEEP à P$=C$ @ POP à ON Q GOTO 30,40,50,60 
130 P$="---------...-... " @ RETURN 
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CHARLEX 


000: 
001: 
002: 
003: 
004: 
005: 
006: 
007: 
008: 
009: 
004: 
008: 
00C: 
00D: 
O0E : 
00F: 
010: 
011: 
012: 
013: 
014: 
015: 
016: 
017: 
018: 


0123456789ABCDEF 


34841425C4548502 
802E000000000000 
5E4001EFF0000000 
FE0000000800001F 
F318F961400032BF 
38F14A11DB10AD23 
07D532BFB8FD7911 
11AD754D7A101743 
11014D1CB15D0000 
71450375FF864834 
5655581008355654 
5810070507701724 
7700775070077517 
2077040708364545 
4A30000449724000 
0808094A2C180814 
A464242008355455 
581000054c714000 
0C3142404C700832 
41414A70002078A0 
2F30000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
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624 octets 


sm 


35E 
68D 
9FD 
D57 
OEA 
484 
837 
BBA 
F25 
2A2 
5F9 
93F 
c92 
FEO 
333 
69c 
9F6 
D3C 
098 
3F0 
718 
A2B 
D38 
04B 
35B 


019: 
01A: 
018: 
01C: 
01D: 
O1E: 
OF: 
020: 
021: 
022: 
023: 
024: 
025: 
026: 
027: 
028: 
029: 
O2A: 
028: 
02C: 
02D: 
02€: 
02F: 
030: 
031: 
032: 
033: 
034: 
035: 


0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000080€ 
1428080008080A2C 
180008040E340800 
08001E3018000000 
0000000000000000 
0000000000000000 
0000000000000000 
0201000000010200 
0000000201020000 
0001000100000002 
0102010000000000 
0000000000000000 
045E755142400101 
0101010000000000 
0000000000000000 
0000070507000000 
00000000083444C4 
44400D7901112D70 
050D750509700000 
0D70000000384540 
4020014E322E3140 


66B 
978 
C88 
F9B 
2AB 
5BB 
8cB 
BDB 
F06 
270 
5B9 
8F3 
co3 
F13 
223 
539 
84E 
B62 
E76 
186 
4D2 
TES 
AF5 
E18 
156 
4B6 
800 
B43 
E97 


036: 
037: 
038: 
039: 
034: 
03B: 
03C: 
030: 
03E: 
03F: 
040: 
041: 
042: 
043: 
044: 
045: 
046: 
047: 
048: 
049: 
O4A: 
048: 
04C: 
04D: 
O4E: 
04F: 
050: 


084E 794142400000 
00000000002€4559 
3200000000000000 
0000000000000026 
5556587008365556 
5810083645464830 
0832414248700024 
5655587008345655 
5810083446454830 
0C3042414C700024 
5556587008355654 
5810083546444830 
0C3142404C700025 
5455587008355455 
5810083544454830 
0C3140414C700875 
1414187000044972 
40000€3159454E30 
OC7A0F 7949400024 
5554587000084A71 
40000C523A262D10 
0424587458400875 
1415187000094A70 
4000083544454830 
0C3140414C300C74 
5655545000054071 
40000 


1E6 
525 
83A 
B52 
EB1 
202 
543 
8A0 
BEF 
F44 
2A1 
5F0 
946 
CAO 
FEE 
350 
6Aî 
A01 
D79 
005 
436 
78D 
ADD 
E21 
189 
4EO 
5D9 
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ENGLISH SUMMARY 


JPC 62 - MARCH 1983 


Dear friend 
This the first issue entirely edited by the new team, 


First, we want to pay hommage to the members of the previous board, 

But we have tuo problems. Firstly, after the increasement of the prices of our 
printino office, we don't know if we do expand the subscription price, or do a 
bimonthly issue. Tell us your opinion or another idea. 

The other point is the too fiew number of articles. You have noticed that the 
preceding issue have only 24 pages. We don’t want to reproduce it. If you have 
professionals, games, utilities programs, send them (even in english, we can 
translatel). 


In the general section, Guy Toublanc thanks Pierre David, our previous 
president, and Janick Taillandier for their work to the club. 


The HP-28 section begins with a short routine, by D.T. Khoi-Nguyen, permiting 
the video inversion on the HP-28's screen. By the same autor, the next program 
is the classic Hangman game. Then Philippe Heilbronn presents the new version 
of his program of constant factor. Finally, Guy Toublanc shows us the new 
version of his program of number factorisation, on HP-28C(1BB), HP-28C(1CC) 
and HP-285S. 


The HP-41 section contains an article by Jean Reibel (our new presidentl), 
printing a calendar (whith off days). 


In the new HP-42 section, Eric Gengoux, after the HP-71 and HP-27, implants 
his program of list of fares for the (French!) railways. And it”s with the new 
rates! 


Im the HP-71 section, Eric Gengoux, (still himl) says all the good he thinks 
of the new program of Joseph Horn, sold by EduCALC, permitting the print of 
huge, and diverses sorts of characters on ThinkJet. Note that if there are 
enough sales, Joseph Horn will do an assembly language version! The next 
program implants a like HP-41 version of Alarms processor. Take notice that 
this program works only when the HP-71 is switch off. After that, Alexandre 
Boldireff, gives us the good version of his program of sorting files issued in 
february. He shous us also another version of the text formater written by 
Pierre David. 


That's all for this time! 
Happy programming! 


Jacques Belin (123) 


P.S: Excuse me for this bad English, I have not yet the practice to do it! 


Ve 


CS 


D M OS ES 7 


1, + 
1 7” ' « © © A: 27 = - 
st. — Br = 6 © (tn «+ © -..- 
- > — lle —7_—.—_— | _ ve Je 
® — - <= un cmt DO tu 
A AR | 
« RE ee À 
…. Ut es » + ù mi D go e € © ce: 
W rm. © ses fs © + "juil chi Te - a. 
eme 
Le pre = Ge ee | 
#r © D = - et 
- Eva AP - -' 2- Be. LL. 
| .-. ee. =. -_ MR +. -7 se - res _ ns 

_. e mt et G Enm- pere EL 
- - —_—_—— LC De 
ee re + = “besr— [age 
ve 
- - 6 _ 6e cm ee), 
6 ‘= fe de - - Ge 

1 ee — + SN 7) © + 

nn -t au De LL + On—. O æt © jt de fre —. 
DTA 
- e. Ur _ — «© 2 ee + 
en . +. + pes » 2 as so cp. æ 
_ 1 ee. . v'eoe» qi ep 
— - .— — .op—d_—e + ee 
_ » _ DIRE Mirti - 7 
= —. = RL 
- = + _— © . À te SDS = — nb s- ‘4 
_ LV. ee ee + 00 e nr nn 
| - 1 
eo! æ— MA 
v © + 
L 0 dat 

_ theme + © -:D ent + ee V6 


